麦好的AI乐园

> x<-c(11,22,34,53,12,45,55,37,43,23,9)> dnorm(x,mean=mean(x),sd=sd(x)) [1] 0.011476566 0.020361888 0.023388233 0.010303998 0.012305821 0.016994961 [7] 0.008777154 0.022364773 0.018591966...

> cat("my data", "20180101-20180331","2 3 5 7", "11 13 17", file = "my1.data", sep = "\n")> x<-scan("my1.data",skip=2)Read 7 items> x[1]  2  3  5  7 11 1

> x<-c(1,10,20,30,40,50,NA,60)> xm<-mean(x)> xm[1] NA#na.rm表示允许缺失数据NA> xm<-mean(x,na.rm=TRUE)> xm[1] 30.14286>> x<-c(1,10,20,30,40,50,60)> xm<-mean(x)> xm[1]