99999久久久久久亚洲,欧美人与禽猛交狂配,高清日韩av在线影院,一个人在线高清免费观看,啦啦啦在线视频免费观看www

熱線電話:13121318867

登錄
首頁精彩閱讀R語言變量
R語言變量
2017-06-14
收藏

R語言變量

變量為我們提供了一個(gè)存儲(chǔ)的名字,我們可以操作的項(xiàng)目。 R語言中的變量可以存儲(chǔ)為原子向量,組原子矢量或許多的R-對(duì)象的組合。 一個(gè)有效的變量名稱是由字母,數(shù)字和點(diǎn)或下劃線組成。變量名以字母開頭,或者數(shù)字后面沒有點(diǎn)。

變量賦值

變量可以使用向左,向右且等于操作符來分配值??梢允褂?print() 或 cat() 函數(shù)打印變量的值。cat() 函數(shù)將多個(gè)項(xiàng)目并成連續(xù)并打印輸出。

# Assignment using equal operator.
var.1 = c(0,1,2,3)           

# Assignment using leftward operator.
var.2 <- c("learn","R")   

# Assignment using rightward operator.   
c(TRUE,1) -> var.3           

print(var.1)
cat ("var.1 is ", var.1 ,"\n")
cat ("var.2 is ", var.2 ,"\n")
cat ("var.3 is ", var.3 ,"\n")

當(dāng)我們上面的代碼執(zhí)行時(shí),它產(chǎn)生以下結(jié)果:

[1] 0 1 2 3
var.1 is  0 1 2 3
var.2 is  learn R
var.3 is  1 1

注: 矢量c(TRUE,1)有邏輯和數(shù)值類的混合。因此,邏輯類強(qiáng)迫轉(zhuǎn)換到數(shù)字類,如TRUE為1。

變量的數(shù)據(jù)類型

在R,變量本身不需要聲明成任何數(shù)據(jù)類型,但它得到分配給它的是 R-對(duì)象的數(shù)據(jù)類型。所以R被稱為動(dòng)態(tài)類型的語言,這意味著我們可以當(dāng)在程序中使用它,并可再次并改變相同變量的變量的數(shù)據(jù)類型。

var_x <- "Hello"
cat("The class of var_x is ",class(var_x),"\n")

var_x <- 34.5
cat("  Now the class of var_x is ",class(var_x),"\n")

var_x <- 27L
cat("   Next the class of var_x becomes ",class(var_x),"\n")

當(dāng)我們上面的代碼執(zhí)行時(shí),它產(chǎn)生以下結(jié)果:

The class of var_x is  character
  Now the class of var_x is  numeric
    Next the class of var_x becomes  integer

查找變量

要知道目前在工作區(qū)中的可用變量,可以使用 ls()函數(shù)列出所有變量。另外,ls() 函數(shù)可以使用模式來匹配變量名稱。

print(ls())

當(dāng)上面的代碼執(zhí)行時(shí),它產(chǎn)生以下結(jié)果:

[1] "my var"     "my_new_var" "my_var"     "var.1"      
[5] "var.2"      "var.3"      "var.name"   "var_name2."
[9] "var_x"      "varname"

注: 示例輸出是根據(jù)變量在環(huán)境聲明來輸出顯示的。

在 ls() 函數(shù)可以使用模式匹配變量名。

# List the variables starting with the pattern "var".
print(ls(pattern="var")) 

當(dāng)上面的代碼執(zhí)行時(shí),它產(chǎn)生以下結(jié)果:

[1] "my var"     "my_new_var" "my_var"     "var.1"      
[5] "var.2"      "var.3"      "var.name"   "var_name2."
[9] "var_x"      "varname"  

以點(diǎn)(.) 開始的變量是隱藏的,它們可以使用 “all.names= TRUE” 參數(shù)給 ls()函數(shù)來列出。

print(ls(all.name=TRUE))

當(dāng)上面的代碼執(zhí)行時(shí),它產(chǎn)生以下結(jié)果:

[1] ".cars"        ".Random.seed" ".var_name"    ".varname"     ".varname2"   
[6] "my var"       "my_new_var"   "my_var"       "var.1"        "var.2"        
[11]"var.3"        "var.name"     "var_name2."   "var_x" 

刪除變量

變量可以通過使用 rm()函數(shù)來刪除。下面我們刪除變量var.3。然后再打印變量時(shí)出現(xiàn)異常錯(cuò)誤。

rm(var.3)
print(var.3)

當(dāng)上面的代碼執(zhí)行時(shí),它產(chǎn)生以下結(jié)果:

[1] "var.3"
Error in print(var.3) : object 'var.3' not found

所有的變量可以通過使用rm()和 ls()函數(shù)來一起刪除。

rm(list=ls())
print(ls())

當(dāng)上面的代碼執(zhí)行時(shí),它產(chǎn)生以下結(jié)果:

character(0)



數(shù)據(jù)分析咨詢請(qǐng)掃描二維碼

若不方便掃碼,搜微信號(hào):CDAshujufenxi

數(shù)據(jù)分析師資訊
更多

OK
客服在線
立即咨詢
客服在線
立即咨詢
') } function initGt() { var handler = function (captchaObj) { captchaObj.appendTo('#captcha'); captchaObj.onReady(function () { $("#wait").hide(); }).onSuccess(function(){ $('.getcheckcode').removeClass('dis'); $('.getcheckcode').trigger('click'); }); window.captchaObj = captchaObj; }; $('#captcha').show(); $.ajax({ url: "/login/gtstart?t=" + (new Date()).getTime(), // 加隨機(jī)數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調(diào)用 initGeetest 進(jìn)行初始化 // 參數(shù)1:配置參數(shù) // 參數(shù)2:回調(diào),回調(diào)的第一個(gè)參數(shù)驗(yàn)證碼對(duì)象,之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個(gè)配置參數(shù)為必須,不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺(tái)檢測(cè)極驗(yàn)服務(wù)器是否宕機(jī) new_captcha: data.new_captcha, // 用于宕機(jī)時(shí)表示是新驗(yàn)證碼的宕機(jī) product: "float", // 產(chǎn)品形式,包括:float,popup width: "280px", https: true // 更多配置參數(shù)說明請(qǐng)參見:http://docs.geetest.com/install/client/web-front/ }, handler); } }); } function codeCutdown() { if(_wait == 0){ //倒計(jì)時(shí)完成 $(".getcheckcode").removeClass('dis').html("重新獲取"); }else{ $(".getcheckcode").addClass('dis').html("重新獲取("+_wait+"s)"); _wait--; setTimeout(function () { codeCutdown(); },1000); } } function inputValidate(ele,telInput) { var oInput = ele; var inputVal = oInput.val(); var oType = ele.attr('data-type'); var oEtag = $('#etag').val(); var oErr = oInput.closest('.form_box').next('.err_txt'); var empTxt = '請(qǐng)輸入'+oInput.attr('placeholder')+'!'; var errTxt = '請(qǐng)輸入正確的'+oInput.attr('placeholder')+'!'; var pattern; if(inputVal==""){ if(!telInput){ errFun(oErr,empTxt); } return false; }else { switch (oType){ case 'login_mobile': pattern = /^1[3456789]\d{9}$/; if(inputVal.length==11) { $.ajax({ url: '/login/checkmobile', type: "post", dataType: "json", data: { mobile: inputVal, etag: oEtag, page_ur: window.location.href, page_referer: document.referrer }, success: function (data) { } }); } break; case 'login_yzm': pattern = /^\d{6}$/; break; } if(oType=='login_mobile'){ } if(!!validateFun(pattern,inputVal)){ errFun(oErr,'') if(telInput){ $('.getcheckcode').removeClass('dis'); } }else { if(!telInput) { errFun(oErr, errTxt); }else { $('.getcheckcode').addClass('dis'); } return false; } } return true; } function errFun(obj,msg) { obj.html(msg); if(msg==''){ $('.login_submit').removeClass('dis'); }else { $('.login_submit').addClass('dis'); } } function validateFun(pat,val) { return pat.test(val); }