1
2
3
library(seqinr)
 
print(runif(100))

1
print(runif(100))

1
create table user;

1
print "Kode Multus"

1
print "Kode Multus"

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
3
4
5
# Interpreter at http://ideone.com/
rows <- sample(1:10, 1, replace=T)
cols <- sample(1:10, 1, replace=T)
print(rows)
print(cols)

1
2
3
4
# Interpreter at http://ideone.com/
rows, cols <- sample(1:10, 2, replace=T)
print(rows)
print(cols)

1
2
3
4
5
6
7
8
9
# Interpreter at http://ideone.com/
rows <- 3
cols <- 6
start <- matrix( c(0,1,2,3,4,5, 6,7,8,9,10,11, 12,13,14,15,16,17), nrow=rows, ncol=cols, byrow=TRUE )
print(start)
end <- start
for(i in 1:rows) {
  for(j in 1:cols) {
    if(start[i,j]==0) {
 ...

1
2
3
4
5
6
7
8
9
# Interpreter at http://ideone.com/
rows <- 3
cols <- 6
start <- matrix( c(1,2,3,4,5,6, 2,2,3,4,5,0, 3,3,3,2,1,2), nrow=rows, ncol=cols, byrow=TRUE )
print(start)
end <- start
for(i in 1:rows) {
  for(j in 1:cols) {
    if(start[i,j]==0) {
 ...

1
A <- 3

1
2
3
4
5
6
7
8
9
# Interpreter at http://ideone.com/
rows <- 3
cols <- 6
start <- matrix( c(1,2,3,4,5,6, 2,2,3,4,5,0, 3,3,3,2,1,2), nrow=rows, ncol=cols, byrow=TRUE )
print(start)
end <- start
for(i in 1:rows) {
  for(j in 1:cols) {
    if(start[i,j]==0)
 ...

1
2
3
4
5
6
7
8
9
# Interpreter at http://ideone.com/
rows <- 3
cols <- 6
start <- matrix( c(1,2,3,4,5,6, 2,2,3,4,5,0, 3,3,3,2,1,2), nrow=rows, ncol=cols, byrow=TRUE )
print(start)
end <- start
for(i in 1:rows) {
  for(j in 1:cols) {
    if(start[i,j]==0)
 ...

1
2
3
4
5
6
7
8
9
# Interpreter at http://ideone.com/
rows <- 3
cols <- 6
start <- matrix( c(1,2,3,4,5,6, 2,2,3,4,5,0, 3,3,3,2,1,2), nrow=rows, ncol=cols, byrow=TRUE )
print(start)
end <- start
for(i in 1:rows) {
  for(j in 1:cols) {
    if(start[i,j]==0)
 ...

1
2
3
4
5
6
7
8
9
# Interpreter at http://ideone.com/
rows <- 3
cols <- 6
start <- matrix( c(1,2,3,4,5,6, 2,2,3,4,5,0, 3,3,3,2,1,2), nrow=rows, ncol=cols, byrow=TRUE )
print(start)
end <- start
for(i in 1:rows) {
  for(j in 1:cols) {
    if(start[i,j]==0)
 ...

1
2
3
4
5
6
7
8
9
# Interpreter at http://ideone.com/
rows <- 3
cols <- 6
start <- matrix( c(1,2,3,4,5,6, 2,2,3,4,5,0, 3,3,3,2,1,2), nrow=rows, ncol=cols, byrow=TRUE )
print(start)
end <- start
for(i in 1:rows) {
  for(j in 1:cols) {
    if(start[i,j]==0)
 ...

1
2
3
4
5
6
7
8
9
# Interpreter at http://ideone.com/
rows <- 3
cols <- 6
start <- matrix( c(1,2,3,4,5,6, 2,2,3,4,5,0, 3,3,3,2,1,2), nrow=rows, ncol=cols, byrow=TRUE )
print(start)
end <- start
for(i in 1:rows) {
  for(j in 1:cols) {
    if(start[i,j]==0)
 ...

1
2
3
4
5
6
7
8
9
# Interpreter at http://ideone.com/
rows <- 3
cols <- 6
start <- matrix( c(1,2,3,4,5,6, 2,2,3,4,5,0, 3,3,3,2,1,2), nrow=rows, ncol=cols, byrow=TRUE )
print(start)
end <- start
for(i in 1:rows) {
  for(j in 1:cols) {
    if start[i,j]==0
 ...

1
2
3
4
5
6
7
8
9
# Interpreter at http://ideone.com/
start <- matrix( c(1,2,3,4,5,6, 2,2,3,4,5,0, 3,3,3,2,1,2), nrow = 3, ncol=6, byrow=TRUE )
print(start)
end <- start
for(i in 1:length(start)) {
  for(j in 1:length(start[0])) {
    if start[i,j]==0
        end[i,] <- 0
        end[,j] <- 0
 ...

1
2
3
4
m <- matrix( c(1,2,3,4,5,6, 2,2,3,4,5,0, 3,3,3,2,1,2), nrow = 3, ncol=6, byrow=TRUE )
print(m)
m[1,] <- 0
print(m)

1
2
m <- matrix( c(1,2,3,4,5,6, 2,2,3,4,5,0, 3,3,3,2,1,2), nrow = 3, ncol=6, byrow=TRUE )
print(m)

1
2
m <- matrix( [[1;2;3;4;5;6]; [2;2;3;4;5;0]; [3;3;3;2;1;2]] )
print(m)

1
2
x1 <- sample(0:10, 1, replace=T)
print(x1)

1
2
3
4
5
6
b <- 1:5
print(b)
m <- matrix( c(b, b^2, b^3, b^4), 5, 4)
print(m)
tm <- t(m)
print(tm)

1
2
b <- 1:5
print(b)

1
2
3
4
5
b <- 1:5
m <- matrix(c(b, b^2, b^3, b^4), 5, 4)
print(m)
tm <- t(m)
print(tm)

1
2
x <- rnorm(100)
hist(x)

1
2
x <- norm(100)
hist(x)

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
a <- 2
plot(a= log(x,base=10))