R語言求解，剛開始學需要幫忙

#r語言

abcd0122 2020-11-04 17:23:09 ‧ 1873 瀏覽

分享至

(1) 請建立一while迴圈列印所有小於35之數字，但是跳過(3,9,13,19,23,29)。
num_exclude= c(3,9,13,19,23,29)

(2) 請使用R Base 所提供之內建資料iris，請篩選出Species 為‘virginica’，且同時‘Sepal.Width’ > 3.5之前4欄資料。

(3) 請設計自建函數“myfun”，其輸入值為 x，此函數可依x值計算(x, x^2, x^3, …)，如輸入myfun(1:10)，其結果為:

myfun(1:10)
[1] 1 4 27 256 3125
[6] 46656 823543 16777216 387420489 10000000000

dragonH iT邦超人 5 級 ‧ 2020-11-04 17:28:42 檢舉

>(1) 請建立一while迴圈列印所有小於35之數字，但是跳過(3,9,13,19,23,29)。
num_exclude= c(3,9,13,19,23,29)

(2) 請使用R Base 所提供之內建資料iris，請篩選出Species 為‘virginica’，且同時‘Sepal.Width’ > 3.5之前4欄資料。

(3) 請設計自建函數“myfun”，其輸入值為 x，此函數可依x值計算(x, x^2, x^3, …)，如輸入myfun(1:10)，其結果為:

我發現標題換成

明天要交的作業, 需要幫忙

內文也一樣通順耶

一級屠豬士 iT邦大師 1 級 ‧ 2020-11-04 18:07:17 檢舉

請自己先嘗試寫,卡住的部分再來問.
不然這樣丟題目上來,求程式的.
你不是第一個,也不會是最後一個.
但是給你答案對你有好處嗎?

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

微甜的酸

iT邦新手 2 級 ‧ 2020-11-04 19:07:35

自己不寫，那你的題目拿來給我玩OuO

只需一行

setdiff(1:35, c(3,9,13,19,23,29))

也算一行

library(tidyverse)
iris%>%filter(Species=='virginica',Sepal.Width>3.5)%>%select(1:4)

不能一行?

回應
分享
檢舉

登入發表回應

海綿寶寶

iT邦大神 1 級 ‧ 2020-11-04 22:20:57

把 R 當成 C 來寫

#--- 1---
num_exclude<-c(3,9,13,19,23,29)

i<-1
while (i<35) {
    if(i %in% num_exclude){
    }else{
        print(i)
    }
    i<-i+1
}

#--- 2 ---
require(datasets)
ss <- subset(iris, Sepal.Width > 3.5 & Species == 'virginica')
subset(ss[, c(1,2,3,4)])

#--- 3 ---
myfun <- function(b, e) {
    for(i in c(b:e)) {
        print(`^`(i, i))
    }
}
myfun(1,10)