> mydata<-read.csv("E:\\╰凝初寒つ\\學習檔案\\大資料概論\\R語言\\soapdata.csv",header=T)
> dim(mydata)
> mydata<-head(mydata,41)
> cnt<-5
> repeat{
	 	最小值<-min(mydata[,cnt])
 		print(最小值)
		cnt<-cnt+1
		if(cnt>17){
			break
		}
}	
> cnt<-5
> repeat{
 		最大值<-max(mydata[,cnt])
 		print(最大值)
 		cnt<-cnt+1
		if(cnt>17){
			break
		}
}
> cnt<-5
> repeat{
		中位數<-median(mydata[,cnt])
 		print(中位數)
		cnt<-cnt+1
		if(cnt>17){
			break
		}
}
> cnt<-5
> repeat{
		眾數<-median(mydata[,cnt])
 		print(中位數)
 		cnt<-cnt+1
		if(cnt>17){
			break
		}
}
> cnt<-5
> repeat{
		眾數<-table(mydata[,cnt])[which.max(table(mydata[,cnt]))]
		print(眾數)
		cnt<-cnt+1
		if(cnt>17){
			break
		}
}
> cnt<-5
> repeat{
		方差<-var(mydata[,cnt])
 		print(方差)
 		cnt<-cnt+1
		if(cnt>17){
			break
		}
}

 

讀取該檔案，並對檔案第5到17列（收視率-豆瓣評價人數）進行描述性分析。