jiaoda@YQX-CSDN博客

原创渣渣小白学R（每日一题）--成绩统计

输入一个数n(n为奇数)表示有n个学生，然后后面n行输入这n个学生的学号，成绩。输出n个学生的分数的中位数，以及中位数对应学生的学号。例如，输入:7101 72102 85103 99104 68105 77106 86107 66输出:77105rm(list=ls())n=as.numeric(readline('请输入学生个数：'))print(past...

2018-09-21 20:41:41 212

原创渣渣小白学R（每日一题）--猜数字游戏【猜错的话，提示正确的区间段，直到猜对为止】

num=round(runif(1,1,200))numb=1c=200d=0g=0print('待猜数字在1-200之间')while(1)#等于0不执行，等于1一直执行这个循环{ a=as.numeric(readline('这个生成的随机数是：')) if(a>num) { if(d==1)#在执行这个循环前，有没有执行a<num的循...

2018-09-18 16:02:00 1013

原创渣渣小白学R（每日一题）--输入1个数n，然后输入n个数，这n+1个数用空格隔开。输出后n个数的最小值和最小值对应的序号。【不使用R的内置函数】

n=as.numeric(readline('输入数字的个数：'))t=array()for(i in 1:n){ a=as.numeric(readline('输入一个数字：')) t[i]=a#每次循环输入的数字给向量t }min=t[1] for(j in 1:n) { if(t[j]<min) min=t[j] }prin...

2018-09-16 17:12:08 954

原创渣渣小白学R（每日一题）--从键盘输入一个数n，然后再从键盘输入n个数，这n+1个数用空格隔开，输出这后面n个数的和、平均数。

n=as.numeric(readline('输入数字的个数：'))t=array()for(i in 1:n){ a=as.numeric(readline('输入一个数字：')) t[i]=a#每次循环输入的数字给向量t }v=list(t)#看一下t是不是我们输入的n个数字vtmean=mean(t)#后n个数的均值（也就是循环里输入的n个数字）tmeant...

2018-09-14 23:06:40 1783

原创渣渣小白学R（每日一题）--鸡兔同笼，输出鸡兔个数

方法一：引用https://zhidao.baidu.com/question/1308522327564789939.htmljitutonglong=function(x,y){ tu=y/2-x ji=x-tu print(paste("鸡有",ji,"只")) print(paste("兔子有",tu,"只"))}jitutonglong(35,94) 方...

2018-09-12 22:50:41 771

原创今日思考--别人的爬天猫的代码，我拿来爬淘宝为什么出错？

这个问题困扰我了好几天了。今天终于有一点点眉目了！开心爬天猫时，用了rvest包。爬淘宝时，我模仿别人的，也用了rvest包，emmm，就出错了。因为淘宝是动态数据，不能用这个包。最近水平停留在爬静态数据，还有点不熟练。继续加油吧。小渣鑫！动态数据爬取实例见知乎大佬：https://zhuanlan.zhihu.com/p/28108329....

2018-09-11 21:48:11 276

原创渣渣小白学R（每日一题）--读取一个数年龄x（x在0-140），判断其年龄段

方法一：手动调用函数judgeAge = function(x){ if((x>=0)&(x<1)) { print("婴儿") } else if((x>=1)&(x<6)) { print("幼儿") } else if((x>=6)&(x<12)) { print(&q

2018-09-09 20:24:13 257

原创渣渣小白学R（每日一题）--输出前20个斐波那契数

斐波那契数列(Fibonacci sequence):又称黄金分割数列.指的是这样一个数列：1、1、2、3、5、8、13、21、34、……在数学上，斐波纳契数列被以如下递归的方法定义：F(0)=0，F(1)=1, F(n)=F(n-1)+F(n-2)（n>=2，n∈N*）方法一：思路是数学中的列举法，详见下图。rm(list=ls())#清空变量栏a=1b=1for(n...

2018-09-09 11:40:31 1482

原创渣渣小白学R（每日一题）--判断一个年份是不是闰年

闰年：能被4整除但不能被100整除的年份runyear = function (year){if((year%%4 == 0)&(year%%100 != 0)) { paste(year,"是闰年",sep = "") } else { paste(year,"不是闰年") }} runyear(2018)runyear(2000)...

2018-09-09 11:24:59 352

原创渣渣小白学R（每日一题）--找到100以内所有的质数 AND 计算100以内质数的个数

找到100以内所有的质数方法一：（1）给x一个初值1 （2）输入一个数i，用i除以它前边的每个数，如果能整除，把0赋给x，退出循环（3）判断x是否等于1，如果x=1，说明不能整除前边的每一个数，即为质数.此时输出i （4）执行i从2到100这个循环，就能得到100以内的所有质数了for(i in ...

2018-09-09 09:48:46 9108 1

weixin_42124921的博客