松鼠品牌设计: [猪肉干] No active dataset found. Data1 <- read.table("C:/EZRDATA/Sample.rda", header=TRUE, sep=",", na.strings="NA", dec=".", strip.white=TRUE) 身長=c(147,149,150,152,156,154,174,182,175,163,157,159,160,164,178,180) 体重=c(56,46,79,65,74,45,57,80,85,64,90,83,53,75,73,84) d=data.frame(身長,体重) par(mfrow=c(2,2)) hist(身長,xlim=c(140,180), ylim=c(0,0.06),prob=T,main="") par(new=T);plot(density(身長),col=2,xlim=c(140,180), ylim=c(0,0.06), xlab="",ylab="") hist(体重,xlim=c(40,100), ylim=c(0,0.06),prob=T,main="") par(
2018-06-27 00:00:00★★★★☆
松鼠品牌设计: [猪肉干] No active dataset found. Data1 <- read.table("C:/EZRDATA/Sample.rda", header=TRUE, sep=",", na.strings="NA", dec=".", strip.white=TRUE) 身長=c(147,149,150,152,156,154,174,182,175,163,157,159,160,164,178,180) 体重=c(56,46,79,65,74,45,57,80,85,64,90,83,53,75,73,84) d=data.frame(身長,体重) par(mfrow=c(2,2)) hist(身長,xlim=c(140,180), ylim=c(0,0.06),prob=T,main="") par(new=T);plot(density(身長),col=2,xlim=c(140,180), ylim=c(0,0.06), xlab="",ylab="") hist(体重,xlim=c(40,100), ylim=c(0,0.06),prob=T,main="") par(
2018-06-27 00:00:00★★★★☆