방송대 파이썬과 R

소개글

"방송대 파이썬과 R"에 대한 내용입니다.

목차

없음

본문내용

1.1 R에서 XM <- matrix(1:12, ncol=6, byrow=T)는 행의 수 2, 열의 수6인 행렬이다. 이 행렬의 세 번째 열의 위치에 C (10,20)을 끼워 넣어 행의 2, 열의 수 7 인 다음 행렬을 만들어 보시오. r로 하시오
> xm <- matrix(1:12, ncol=6, byrow=T)
> xm
[,1] [,2] [,3] [,4] [,5] [,6]
[1,] 1 2 3 4 5 6
[2,] 7 8 9 10 11 12
> newCol <- c(10, 20)
> xm<-cbind(xm,newCol)
> xm[,c(1,2,7,3,4,5,6)]
[1,] 1 2 3 4 5 6
[2,] 7 8 9 10 11 12

2.1. (4장 7번)
주당 근무시간이 40시간 이내면 시간당 임금이 1만 원이고 40시간이 초과되는 부분에 대해서는 1.5 배를 지급하는 경우 주당 근무시간을 입력받으면 출력으로 임금이 계산되는 함수 mywage를 파이썬으 로 작성하시오.
def mywage(hours):
if hours <= 40:
mywage = 400000
else:
ex = hours - 40
mywage = 400000 + ex * 15000

return mywage

2.2. (4장 8번)
주당 근무시간이 40시간 이내면 시간당 임금이 1만 원이고 40시간이 초과되는 부분에 대해서는 1.5배를 지급하는 경우 주당 근무시간을 입력받으면 출력으로 임금이 계산되는 함수 mywage를 R로 작성 하시오.
> mywage <- function(x){
if(x < 40)
wageMoney = x * 10000
else
wageMoney = 400000 + (x - 40)*15000
return(wageMoney) }

참고 자료

없음