数据统计与分析基础实验一：基本语法与运算（R语言）
2024-04-22 01:25:48
数据分析与统计基础实验一：基本语法与运算（R语言）
- 1、编写程序，记录十名学生的信息，至少包括姓名、年龄、出生年、数据统计分析课程实验成绩，程序输出前n个学生的年龄平均值、数据统计分析课程实验成绩平均值，n为函数的输入参数。
- 源代码
- 逐条执行结果
- 2、找出1至999之间是13的倍数或者前两位数字是13的数字，输出这些数字，并统计有多少个。
- 源代码
- 逐条执行结果
- 3、编写成绩转化为绩点的函数，用98，93，89，73，66分别调用函数，生成对应绩点。
- 源代码
- 逐条执行结果
- 4、随机生成两个长为100且服从标准正态分布的向量，然后将两向量所有偶数位的数值对调，输出所有的4个向量（对调前的2个，对调后的2个）。
- 源代码
- 逐条执行结果
- 5、已知XYZ+YZZ=532，其中X、Y和Z为数字，编程求出X，Y和Z的值。
- 源代码
- 逐条执行结果
1、编写程序，记录十名学生的信息，至少包括姓名、年龄、出生年、数据统计分析课程实验成绩，程序输出前n个学生的年龄平均值、数据统计分析课程实验成绩平均值，n为函数的输入参数。
源代码
student<-setRefClass("student",fields = list(name="character",age="numeric",both_year="numeric",score="numeric"))
stu1<-student(name="A",age=19,both_year=2002,score=90)
stu2<-student(name="B",age=20,both_year=2001,score=80)
stu3<-student(name="C",age=20,both_year=2001,score=70)
stu4<-student(name="D",age=20,both_year=2001,score=60)
stu5<-student(name="E",age=19,both_year=2000,score=85)
stu6<-student(name="F",age=20,both_year=2001,score=87)
stu7<-student(name="G",age=21,both_year=2000,score=92)
stu8<-student(name="H",age=20,both_year=2001,score=99)
stu9<-student(name="I",age=21,both_year=2000,score=88)
stu10<-student(name="J",age=20,both_year=2001,score=95)score<-c(stu1$score,stu2$score,stu3$score,stu4$score,stu5$score,stu6$score,stu7$score,stu8$score,stu9$score,stu10$score)
age<-c(stu1$age,stu2$age,stu3$age,stu4$age,stu5$age,stu6$age,stu7$age,stu8$age,stu9$age,stu10$age)mean_score<-function(n)
{new_score<-c(NA)new_age<-c(NA)for(count in 1:n){new_score[count]<-score[count]new_age[count]<-age[count]}print(paste0("平均年龄为：",mean(new_age)," ","平均成绩为：",mean(new_score)))
}
mean_score(2)
mean_score(3)
mean_score(4)
mean_score(10)逐条执行结果
> mean_score(2)
[1] "平均年龄为：19.5 平均成绩为：85"
> mean_score(3)
[1] "平均年龄为：19.6666666666667 平均成绩为：80"
> mean_score(4)
[1] "平均年龄为：19.75 平均成绩为：75"
> mean_score(10)
[1] "平均年龄为：20 平均成绩为：84.6"
>
>
2、找出1至999之间是13的倍数或者前两位数字是13的数字，输出这些数字，并统计有多少个。
源代码
CountAndPrint<-function()
{number<-c(NA)t<-0;for(i in 1:999){if(i%%13==0 || (i>=130 && i<=139)){number[t]=i;t<-t+1}}print(paste0("一共有" ,t,"个数字,分别为: "))print(number)
}CountAndPrint()
逐条执行结果
> CountAndPrint()
[1] "一共有85个数字,分别为: "[1] 13 26 39 52 65 78 91 104 117 130 131 132 133 134 135 136 137 138 139 143 156
[22] 169 182 195 208 221 234 247 260 273 286 299 312 325 338 351 364 377 390 403 416 429
[43] 442 455 468 481 494 507 520 533 546 559 572 585 598 611 624 637 650 663 676 689 702
[64] 715 728 741 754 767 780 793 806 819 832 845 858 871 884 897 910 923 936 949 962 975
[85] 988
>
3、编写成绩转化为绩点的函数，用98，93，89，73，66分别调用函数，生成对应绩点。
源代码
compute_score<-function(n)
{if(n>=90){print(4.0)}else{if(n>=80){print(3+0.1*(n-80))}else{if(n>=70){print(2+0.1*(n-70))}else{if(n>=60){print(1+0.1*(n-60))}else{print(0.0)}}}}
}compute_score(98)
compute_score(93)
compute_score(89)
compute_score(73)
compute_score(66)
逐条执行结果
> compute_score(98)
[1] 4
> compute_score(93)
[1] 4
> compute_score(89)
[1] 3.9
> compute_score(73)
[1] 2.3
> compute_score(66)
[1] 1.6
4、随机生成两个长为100且服从标准正态分布的向量，然后将两向量所有偶数位的数值对调，输出所有的4个向量（对调前的2个，对调后的2个）。
源代码
vector_use<-function(){x1<-rnorm(100)x2<-rnorm(100)x3<-x1x4<-x2for(i in 1:100){if(i%%2==0){temp<-x3[i]x3[i]<-x4[i]x4[i]<-temp}}print("初始的两个向量：")print(x1)print(x2)print("调动偶数位后，新的两个向量：")print(x3)print(x4)
}vector_use()
逐条执行结果
> vector_use()
[1] "初始的两个向量："[1] 0.319612070 0.015819871 0.869415469 -1.176999121 0.071135138 0.002999897[7] -0.169636344 1.591012725 0.827372292 2.230233882 -1.516781376 1.478354192[13] 0.462863889 -0.156409261 -1.355582378 0.674201139 0.748893040 -0.713604424[19] 0.313050351 -0.148590846 1.113293579 1.222341899 -1.331542804 1.435167502[25] 0.697359933 -1.884273223 0.229524225 -0.055679346 -0.270288788 -0.522594674[31] 0.222434078 -1.285773357 0.363372337 -1.052354558 0.714893112 0.537422268[37] -0.004273680 0.221294067 -0.136203069 0.786233205 0.309553284 -0.940615158[43] -1.527855939 -0.197083840 0.143029852 2.129222688 0.352623891 -1.982332276[49] 1.008691808 0.185446018 -0.488159115 -0.383184039 0.209679524 -0.578755388[55] -0.973175502 -0.369543045 -0.067756344 0.274504893 -0.909282076 0.415769537[61] 0.775164200 0.287887517 0.099896448 0.968901223 0.741993852 -1.208472532[67] -0.063377501 -1.181997483 -0.147739997 1.502801666 -1.996553865 -1.030902652[73] 2.636829548 0.818082881 2.790901741 -0.577657151 0.696117625 1.077593938[79] -0.123296065 0.804158746 1.856532409 -1.037099388 0.605047538 -0.228457302[85] 0.681835246 0.266290149 1.198032886 -0.019675263 -0.159019727 -1.904559740[91] -0.976426085 -0.762175416 -1.336626827 2.395567742 0.687167431 -1.191623572[97] 0.580462629 -1.382811521 -0.699478382 0.064953614[1] -1.81870906 1.04257871 -0.10650283 -1.75819176 -0.25885374 -0.96899020 0.40225702[8] -2.98534997 -0.80356041 0.72178293 -0.51600527 -1.42371356 -1.19620726 1.12711645[15] -0.07717391 1.91559960 -0.27692214 0.11324847 0.85973458 0.42046223 0.21794640[22] 0.12911543 -3.04384425 1.90241398 -0.69391919 1.50585291 1.15443741 0.99382990[29] -0.34668334 0.26803733 -0.80982230 0.72315893 -0.37180165 0.80548626 1.81133548[36] 0.62886876 -0.74793609 -1.04395881 -0.76611761 0.05756699 0.01268761 -0.35335449[43] 1.17948907 1.20367693 0.03601567 0.88748965 1.45290872 -1.53258399 -0.98711446[50] 2.22898991 -1.46603237 -1.25702472 0.63963586 0.30231780 -0.39316340 -0.04355806[57] -0.19199672 0.35118921 0.31553287 0.68773473 0.69390075 -0.54237982 1.68424915[64] -0.25431864 0.26953820 0.70440099 -0.15022349 1.39380768 0.60695650 -1.18744209[71] 0.34166978 -1.78797519 1.67279154 0.96406088 -0.69872699 1.09033617 -0.58507390[78] 1.38314858 -0.10554886 1.46861966 1.13452257 -0.98136379 1.47061413 0.16657006[85] -0.27680390 0.06171850 0.32741027 -0.03595515 1.30605720 0.58795543 2.12798676[92] -1.92604821 -0.71841657 0.69482668 -2.35087369 0.38025722 1.20806266 0.52068086[99] 0.74830498 -0.93846847
[1] "调动偶数位后，新的两个向量："[1] 0.31961207 1.04257871 0.86941547 -1.75819176 0.07113514 -0.96899020 -0.16963634[8] -2.98534997 0.82737229 0.72178293 -1.51678138 -1.42371356 0.46286389 1.12711645[15] -1.35558238 1.91559960 0.74889304 0.11324847 0.31305035 0.42046223 1.11329358[22] 0.12911543 -1.33154280 1.90241398 0.69735993 1.50585291 0.22952422 0.99382990[29] -0.27028879 0.26803733 0.22243408 0.72315893 0.36337234 0.80548626 0.71489311[36] 0.62886876 -0.00427368 -1.04395881 -0.13620307 0.05756699 0.30955328 -0.35335449[43] -1.52785594 1.20367693 0.14302985 0.88748965 0.35262389 -1.53258399 1.00869181[50] 2.22898991 -0.48815912 -1.25702472 0.20967952 0.30231780 -0.97317550 -0.04355806[57] -0.06775634 0.35118921 -0.90928208 0.68773473 0.77516420 -0.54237982 0.09989645[64] -0.25431864 0.74199385 0.70440099 -0.06337750 1.39380768 -0.14774000 -1.18744209[71] -1.99655386 -1.78797519 2.63682955 0.96406088 2.79090174 1.09033617 0.69611763[78] 1.38314858 -0.12329606 1.46861966 1.85653241 -0.98136379 0.60504754 0.16657006[85] 0.68183525 0.06171850 1.19803289 -0.03595515 -0.15901973 0.58795543 -0.97642608[92] -1.92604821 -1.33662683 0.69482668 0.68716743 0.38025722 0.58046263 0.52068086[99] -0.69947838 -0.93846847[1] -1.818709057 0.015819871 -0.106502832 -1.176999121 -0.258853740 0.002999897[7] 0.402257020 1.591012725 -0.803560415 2.230233882 -0.516005267 1.478354192[13] -1.196207256 -0.156409261 -0.077173906 0.674201139 -0.276922141 -0.713604424[19] 0.859734585 -0.148590846 0.217946400 1.222341899 -3.043844254 1.435167502[25] -0.693919190 -1.884273223 1.154437407 -0.055679346 -0.346683339 -0.522594674[31] -0.809822301 -1.285773357 -0.371801649 -1.052354558 1.811335482 0.537422268[37] -0.747936088 0.221294067 -0.766117610 0.786233205 0.012687609 -0.940615158[43] 1.179489069 -0.197083840 0.036015673 2.129222688 1.452908720 -1.982332276[49] -0.987114458 0.185446018 -1.466032370 -0.383184039 0.639635856 -0.578755388[55] -0.393163399 -0.369543045 -0.191996718 0.274504893 0.315532869 0.415769537[61] 0.693900751 0.287887517 1.684249146 0.968901223 0.269538202 -1.208472532[67] -0.150223486 -1.181997483 0.606956503 1.502801666 0.341669785 -1.030902652[73] 1.672791541 0.818082881 -0.698726985 -0.577657151 -0.585073896 1.077593938[79] -0.105548862 0.804158746 1.134522570 -1.037099388 1.470614133 -0.228457302[85] -0.276803900 0.266290149 0.327410269 -0.019675263 1.306057200 -1.904559740[91] 2.127986760 -0.762175416 -0.718416572 2.395567742 -2.350873691 -1.191623572[97] 1.208062657 -1.382811521 0.748304982 0.064953614
>
5、已知XYZ+YZZ=532，其中X、Y和Z为数字，编程求出X，Y和Z的值。
源代码
n<-list(1,6)for(x in 1:4){for(y in 1:4){for(z in n){if(x*100+y*100+z*10+y*10+2*z==532){print(paste(x," ",y," ",z))}}}
}逐条执行结果
> n<-list(1,6)
> for(x in 1:4){+ for(y in 1:4){+ for(z in n){+ if(x*100+y*100+z*10+y*10+2*z==532){+ print(paste(x," ",y," ",z))
+ }
+ }
+ }
+ }
[1] "3 2 1"
>
数据统计与分析基础实验一：基本语法与运算（R语言）相关推荐
- 数据统计与分析基础实验三：常规数学统计计算（R语言，还没写完）
数据统计与分析基础实验三:常规数学统计计算 1.随机生成一个10x15的高斯矩阵,均值为自己学号后两位,方差为1.对该矩阵分别进行LU.QR.奇异值,并展示分解结果. LU QR 奇异值 2.利用软件 ...
- 移动数据统计平台分析
数据统计对于各位移动开发的童鞋并不陌生,小到Bug统计,大到数据分析,一款性能稳定.用户体验良好的APP一定离不开数据统计的支持,为此我将给大家科普一下常用的六大数据统计平台. 统计平台列表表,外加体 ...
- web端业务数据管理平台+Axure运营数据管理平台+月度数据统计分析+年度排行榜数据统计页面分析+运营大数据统计管理后台+用户信息管理+Axure通用web端高保真交互业务数据管理平台
作品介绍:原型内容包含:web端业务数据管理平台+Axure运营数据管理平台+月度数据统计分析+年度排行榜数据统计页面分析+运营大数据统计管理后台+用户信息管理+Axure通用web端高保真交互业务数 ...
- 用Excel完成专业化数据统计、分析工作
使用Excel可以完成很多专业软件才能完成的数据统计.分析工作,比如:直方图.相关系数.协方差.各种概率分布.抽样与动态模拟.总体均值判断,均值推断.线性.非线性回归.多元回归分析.时间序列等.本专题 ...
- 2021年全国大学生数据统计与分析竞赛赛题B—基于机器学习的用户消费行为预测（上）
2021年全国大学生数据统计与分析竞赛赛题B-基于机器学习的用户消费行为预测(上) 一.赛题B:用户消费行为价值分析 二.基于机器学习的用户消费行为预测 1.数据简介及清洗 (一)数据简介 (二)数据 ...
- 2021年全国大学生数据统计与分析竞赛-B题分析
2021年全国大学生数据统计与分析竞赛的B题代码精简版 模块加载 import numpy as np import matplotlib.pyplot as plt import pandas as ...
- r语言 面板数据回归_工具方法 | “名牌包”:面板、时间序列模型常用R语言包...
计量经济学是数学.统计技术和经济分析的综合,即运用数学.统计方法和相关经济理论,通过计量模型来揭示经济数量关系和规律.R语言包,已经实现了现代计量经济学的很多统计分析功能,下面从面板数据模型和时间序列 ...
- csv数据，已区分训练集和验证集，需要用r语言建立随机森林回归模型，计算模型精度，包括训练集和验证集的r方、mae、rmse
csv数据,已区分训练集和验证集,需要用r语言建立随机森林回归模型,计算模型精度,包括训练集和验证集的r方.mae.rmse #读取训练集 train <- read.csv("tra ...
- 关于微信小程序进行数据统计以及分析问题
一款项目的发布和使用,开发者均希望能够得知自己开发的项目人群反响如何.一般的项目都会通过自己定义的方式与数据库连接进行记录与统计.如今微信小程序的流行,小程序的使用情况的反馈也是必不可少的.故而,微信 ...
最新文章
- Missing space before value for key ‘routes‘ key-spacing
- sed简单使用(二)编号
- Weblogic10 集群配置
- Tensorflow-相关API-交叉熵
- windows系统tomcat日志输出至catalina.out配置说明
- linux中su命令源码,Linux-命令-su
- leetcode6. Z 字形变换
- scanf()函数错误把输入缓存里的回车作为一次字符输入
- 修改docker-仓库资源地址Error response from daemon: Get https://index.docker.io/v1/search
- git clone出现fatal: HTTP request failed --git版本问题
- dup,dup2函数【转】
- 教你如何用C语言做一个简单的贪吃蛇
- IT项目管理追踪表格
- html+css+JavaScript（菜鸟教程版本）学习笔记7.25
- 服务器Ping值代表着什么？
- 人物-物理学家：爱因斯坦
- python图像计数_检测并计数图像中的对象
- 网易考拉海购Java开发面经（已拿offer）
- 切比雪夫不等式例题讲解_2019高考数学大题押题（名师视频讲解，高考最后的提分机会）...
- 枚举的应用：熄灯问题讨厌的青蛙
热门文章
- 更改mysql数据库主键自增时报错ALTER TABLE causes auto_increment resequencing, resulting in duplicate entry '1
- GEE (Google Earth Engine)高阶学习一 影像分割
- 第二证券|钠离子电池将迎来量产 22股净利有望高增长
- 汉语编程的时代会到来吗？
- 打印系统开发(55)——打印机监视器是什么，为什么安装不上？
- MySQL DBA必备工具使用的6大锦囊妙计
- asp功放怎么装_功放音响安装—教您如何安装功放音响
- 2019 CSP-J 真题 题目、答案以及解析
- docker容器安装配置及创建容器
- Java 8中Collectors.toMap空指针异常源码分析